home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2 - Developers' Solutions / Delphi 2 Developers' Solutions.iso / dds / chap07 / howto08 / tabdrive / uidemo.exe / 0 / RCDATA / TPROJECTFORM / TPROJECTFORM.txt
Encoding:
Text File  |  1996-04-14  |  1.7 KB  |  80 lines
  1. object ProjectForm: TProjectForm
  2.   Left = 256
  3.   Top = 178
  4.   Width = 424
  5.   Height = 217
  6.   Caption = 'Current Projects'
  7.   Font.Color = clWindowText
  8.   Font.Height = -10
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   OnCreate = FormCreate
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object AreaTabSet: TTabSet
  15.     Left = 0
  16.     Top = 173
  17.     Width = 416
  18.     Height = 17
  19.     Align = alBottom
  20.     Font.Color = clWindowText
  21.     Font.Height = -11
  22.     Font.Name = 'MS Sans Serif'
  23.     Font.Style = []
  24.     OnChange = AreaTabSetChange
  25.   end
  26.   object ProjectDBGrid: TDBGrid
  27.     Left = 0
  28.     Top = 0
  29.     Width = 416
  30.     Height = 173
  31.     Align = alClient
  32.     DataSource = ProjectDataSource
  33.     TabOrder = 1
  34.     TitleFont.Color = clWindowText
  35.     TitleFont.Height = -10
  36.     TitleFont.Name = 'MS Sans Serif'
  37.     TitleFont.Style = []
  38.   end
  39.   object ProjectDataSource: TDataSource
  40.     DataSet = ProjectTable
  41.     Left = 40
  42.     Top = 96
  43.   end
  44.   object AreaTable: TTable
  45.     Active = True
  46.     DatabaseName = 'TABLEDRIVE'
  47.     TableName = 'AREA.DB'
  48.     Left = 104
  49.     Top = 96
  50.   end
  51.   object ProjectTable: TTable
  52.     Active = True
  53.     DatabaseName = 'TABLEDRIVE'
  54.     IndexFieldNames = 'AREA_ID'
  55.     MasterFields = 'AREA_ID'
  56.     MasterSource = AreaDataSource
  57.     TableName = 'PROJECT.DB'
  58.     Left = 136
  59.     Top = 96
  60.     object ProjectTableAREA_ID: TSmallintField
  61.       FieldName = 'AREA_ID'
  62.       Visible = False
  63.     end
  64.     object ProjectTablePROJECT_ID: TSmallintField
  65.       FieldName = 'PROJECT_ID'
  66.       Visible = False
  67.     end
  68.     object ProjectTablePROJECT_TITLE: TStringField
  69.       DisplayLabel = 'Title'
  70.       FieldName = 'PROJECT_TITLE'
  71.       Size = 80
  72.     end
  73.   end
  74.   object AreaDataSource: TDataSource
  75.     DataSet = AreaTable
  76.     Left = 72
  77.     Top = 96
  78.   end
  79. end
  80.